home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / dopus / arexx_scripts / dopusutils / rexx / samewindow.dopus < prev    next >
Encoding:
Text File  |  1991-09-26  |  376 b   |  20 lines
  1. /**********************************************************
  2.  * This AREXX script will swap the two displayed windows. *
  3.  *         Courtesy of MicroTech Solutions, Inc.          *
  4.  **********************************************************/
  5.  
  6. options RESULTS
  7.  
  8. address 'dopus_rexx'
  9.  
  10. status 3
  11. w = RESULT
  12.  
  13. status 13 w
  14. p = RESULT
  15.  
  16. if w = 0 then w = 1
  17. else w = 0
  18.  
  19. status 13 w set p
  20.